`additive` <-
function (o) UseMethod("additive")

